|
 |
On Thu, 8 Nov 2001 08:51:00 -0500, "Mahalis" <don### [at] fakey com> wrote:
> Well, I see 6 lines of code there, as opposed to:
> ctext("MaHaLiS","C:\Windows\Fonts\ocrb.ttf",0.125,yes,texture{pigment{Blue}
> finish{reflection 0.25 metallic}},interior{})
Oh, you want count?
So let's simplify this 6 lines, remove not necessary space and group to macro
#macro Center(O)object{O translate-(max_extent(O)+min_extent(O))/2}#end
is your macro shorten? :-)
Note it works fine with all objects.
Center(text{ttf "crystal.ttf" "Mahalis" 2 0})
Center(sphere{0,1})
ABX
--
#declare _=function(a,b,x){((a^2)+(b^2))^.5-x}#default {pigment{color rgb 1}}
union{plane{y,-3}plane{-x,-3}finish{reflection 1 ambient 0}}isosurface{ //ABX
function{_(x-2,y,1)|_((x+y)*.7,z,.1)|_((x+y+2)*.7,z,.1)|_(x/2+y*.8+1.5,z,.1)}
contained_by{box{<0,-3,-.1>,<3,0,.1>}}translate z*15finish{ambient 1}}//POV35
Post a reply to this message
|
|
